home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / largef1a / basmain.bas next >
BASIC Source File  |  1999-09-19  |  2KB  |  37 lines
  1. Attribute VB_Name = "basMain"
  2. Option Explicit
  3. Public Const GENERIC_WRITE = &H40000000
  4. Public Const GENERIC_READ = &H80000000
  5. Public Const FILE_ATTRIBUTE_NORMAL = &H80
  6. Public Const CREATE_ALWAYS = 2
  7. Public Const OPEN_ALWAYS = 4
  8. Public Const INVALID_HANDLE_VALUE = -1
  9.  
  10. Public Declare Function ReadFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, ByVal lpOverlapped As Long) As Long
  11. Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
  12. Public Declare Function WriteFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToWrite As Long, lpNumberOfBytesWritten As Long, ByVal lpOverlapped As Long) As Long
  13. Public Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
  14. Public Declare Function FlushFileBuffers Lib "kernel32" (ByVal hFile As Long) As Long
  15.  
  16. Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SystemTime)
  17.  
  18. Type SystemTime
  19.         wYear As Integer
  20.         wMonth As Integer
  21.         wDayOfWeek As Integer
  22.         wDay As Integer
  23.         wHour As Integer
  24.         wMinute As Integer
  25.         wSecond As Integer
  26.         wMilliseconds As Integer
  27. End Type
  28.  
  29.  
  30. Public Property Get getTime() As Double
  31. Dim currentTime As SystemTime
  32.     Call GetLocalTime(currentTime)
  33.     getTime = (currentTime.wHour * CLng(3600000) + currentTime.wMinute * CLng(60000) + currentTime.wSecond * CLng(1000) + currentTime.wMilliseconds) / CLng(1000)
  34.     Exit Property
  35. End Property
  36.  
  37.